unit uBox;

interface

uses Windows, SysUtils;

procedure Error(const ErrorStrMessage: string);
procedure Box(); overload;
procedure Box(const BoxStrMessage: string); overload;
procedure Box(const BoxStrMessage, BoxStrCaption: string); overload;
procedure Box(const BoxIntMessage: Integer); overload;
procedure Box(const BoxBoolMessage: Boolean); overload;

implementation

uses uLog;

procedure Error(const ErrorStrMessage: string);
begin
  Box(ErrorStrMessage);
  Log.Log(ErrorStrMessage);
end;

procedure Box(); overload;
begin
  MessageBox(0, '', 'HoD', MB_OK);
end;

procedure Box(const BoxStrMessage: string); overload;
begin
  MessageBox(0, PChar(BoxStrMessage), 'HoD', MB_OK);
end;

procedure Box(const BoxStrMessage, BoxStrCaption: string); overload;
begin
  MessageBox(0, PChar(BoxStrMessage), PChar(BoxStrCaption), MB_OK);
end;

procedure Box(const BoxIntMessage: Integer); overload;
begin
  MessageBox(0, PChar(IntToStr(BoxIntMessage)), 'HoD', MB_OK);
end;

procedure Box(const BoxBoolMessage: Boolean); overload;
begin
  MessageBox(0, PChar(BoolToStr(BoxBoolMessage)), 'HoD', MB_OK);
end;

end.
